' Try recursive calls to gosub (gs) for factorial b+ 2020-03-07
. Sorry only can do up to 18 or so when Exponential Notation takes over
[
	? (0 quits) Enter a number to find it's factorial; factorialMe
	isEmpty $= factorialMe,
	If isEmpty
		End
	Fi
	save = factorialMe
	If factorialMe > 0 
		fac = 1
		GS F!:
		. save;! = ;fac
	El
		. Goodbye!
		End
	Fi
	.
]
F!:
	If factorialMe > 1
		fac = fac * factorialMe
		factorialMe = factorialMe - 1
		GS F!:
	Fi
Rtn
